object Macrod: TMacrod Left = 264 Top = 150 HelpContext = 102 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Macro Keys' ClientHeight = 353 ClientWidth = 564 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ShowHint = True OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnDeactivate = FormDeactivate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label7: TLabel Left = 8 Top = 32 Width = 87 Height = 13 Caption = 'Stored Macros:' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 8 Top = 48 Width = 156 Height = 13 Caption = 'Click on an macro below to edit it' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Image1: TImage Left = 184 Top = 32 Width = 32 Height = 32 AutoSize = True end object Bevel1: TBevel Left = 168 Top = 32 Width = 9 Height = 259 Shape = bsLeftLine end object Label3: TLabel Left = 224 Top = 40 Width = 273 Height = 13 Caption = 'Macros allow you to assign a series of commands to a key' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 240 Top = 56 Width = 256 Height = 13 Caption = 'Edit the name of the key, or press the keyboard button' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 240 Top = 86 Width = 272 Height = 13 Caption = 'Enter the commands to be executed in the Command field' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object AliasText: TLabel Left = 244 Top = 194 Width = 21 Height = 13 Alignment = taRightJustify Caption = 'Key:' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ComText: TLabel Left = 210 Top = 218 Width = 55 Height = 13 Alignment = taRightJustify Caption = 'Commands:' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 256 Top = 70 Width = 128 Height = 13 Caption = 'to select a key interactively' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton1: TSpeedButton Left = 358 Top = 192 Width = 20 Height = 20 Hint = 'Select a key for the macro' Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333300000000000033300888888888800330F888888888 880330FF88888888880330FF77777777780330FF70770777780330FF70770777 780330FF70000777780330FF70770777780330FF770077777803300F77777777 7003330000000000003333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} OnClick = SpeedButton1Click end object HelpTxt: TLabel Left = 256 Top = 100 Width = 218 Height = 13 Caption = 'separate multiple commands with a ; character' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 8 Top = 62 Width = 120 Height = 13 Caption = 'Double click to execute it' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton2: TSpeedButton Left = 272 Top = 216 Width = 20 Height = 20 Hint = 'Edit command|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF7733333033000000033333373377777773330000} NumGlyphs = 2 OnClick = SpeedButton2Click end object Inh: TLabel Left = 272 Top = 248 Width = 188 Height = 13 Caption = 'Inherited from parent settings file' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object Label6: TLabel Left = 240 Top = 118 Width = 273 Height = 13 Caption = 'End commands with ~ to append to command line instead' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 256 Top = 132 Width = 156 Height = 13 Caption = 'of sending command to the MUD' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 240 Top = 150 Width = 268 Height = 13 Caption = 'Begin commands with ~ to append to command line and ' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label11: TLabel Left = 256 Top = 164 Width = 154 Height = 13 Caption = 'send resulting command to MUD' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object OKBtn: TBitBtn Left = 320 Top = 300 Width = 77 Height = 27 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = OKBtnClick Kind = bkOK Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 402 Top = 300 Width = 77 Height = 27 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = CancelBtnClick Kind = bkCancel Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 484 Top = 300 Width = 77 Height = 27 HelpContext = 102 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 Kind = bkHelp Spacing = -1 IsControl = True end object MacroList: TListBox Left = 8 Top = 80 Width = 154 Height = 211 ExtendedSelect = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False Sorted = True TabOrder = 3 OnClick = MacroListClick OnDblClick = MacroListDblClick OnMouseDown = MacroListMouseDown end object NewBtn: TBitBtn Left = 8 Top = 300 Width = 62 Height = 27 Hint = '|Create a new macro' Caption = '&New' Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = NewBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object KeyName: TEdit Left = 272 Top = 192 Width = 81 Height = 21 Hint = '|Name of macro key' AutoSize = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnChange = KeyNameChange end object KeyCom: TEdit Left = 296 Top = 216 Width = 241 Height = 21 Hint = '|Commands to assign to the macro' AutoSize = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnChange = KeyComChange end object Key: TEdit Left = 392 Top = 192 Width = 81 Height = 21 AutoSize = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 Visible = False end object Panel2: TPanel Left = 0 Top = 0 Width = 564 Height = 22 Align = alTop BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 8 object Panel3: TPanel Left = 1 Top = 1 Width = 42 Height = 20 Align = alLeft BevelOuter = bvNone TabOrder = 0 object TopBtn: TSpeedButton Left = 0 Top = 0 Width = 20 Height = 20 Hint = 'Keep on top|Forces this dialog to display on top of others' AllowAllUp = True GroupIndex = 1 NumGlyphs = 2 OnClick = TopBtnClick end object LoadBtn: TSpeedButton Left = 20 Top = 0 Width = 20 Height = 20 Hint = 'Update for active MUD|Loads macros for current character window' NumGlyphs = 2 OnClick = LoadBtnClick end end object Panel4: TPanel Left = 43 Top = 1 Width = 520 Height = 20 Align = alClient BevelOuter = bvNone TabOrder = 1 object BtnPanel5: TBtnPanel Left = 0 Top = 0 Width = 64 Height = 20 BorderColor = clHighlight Align = alLeft BorderWidth = 1 Caption = 'Aliases' Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = AliasBtnClick end object VarBtn: TBtnPanel Left = 64 Top = 0 Width = 64 Height = 20 BorderColor = clHighlight Align = alLeft BorderWidth = 1 Caption = 'Variables' Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = VarBtnClick end object MacroBtn: TBtnPanel Left = 128 Top = 0 Width = 64 Height = 20 BorderColor = clHighlight Align = alLeft BorderWidth = 1 Caption = 'Macros' Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = MacroBtnClick end object ButBtn: TBtnPanel Left = 192 Top = 0 Width = 64 Height = 20 BorderColor = clHighlight Align = alLeft BorderWidth = 1 Caption = 'Buttons' Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = ButBtnClick end object TrigBtn: TBtnPanel Left = 256 Top = 0 Width = 64 Height = 20 BorderColor = clHighlight Align = alLeft BorderWidth = 1 Caption = 'Triggers' Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = TrigBtnClick end object WalkBtn: TBtnPanel Left = 320 Top = 0 Width = 88 Height = 20 BorderColor = clHighlight Align = alLeft BorderWidth = 1 Caption = 'Speedwalking' Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = WalkBtnClick end end end object CopyBtn: TBitBtn Left = 72 Top = 300 Width = 62 Height = 27 Hint = '|Make a copy of the currently selected macro' Caption = '&Copy' Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 9 OnClick = CopyBtnClick Glyph.Data = { 56070000424D5607000000000000360400002800000028000000140000000100 0800000000002003000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF 0303030303030303030000000000000000000003030303030303030303F8F8F8 F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303 0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303 0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF 03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03 FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303 F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF 0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03 0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303 F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF 0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303 0303030300FF070707070707FF0003030303030303030303F8FF030303030303 03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303 F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303 0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303 030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8 0303030303030303030303030303030303030303030303030303030303030303 0303030303030303030303030303030303030303030303030303030303030303 0303030303030303030303030303030303030303030303030303} NumGlyphs = 2 Spacing = -1 IsControl = True end object DelBtn: TBitBtn Left = 136 Top = 300 Width = 27 Height = 27 Hint = 'Delete macro' TabOrder = 10 OnClick = DelBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpPanel: TPanel Left = 0 Top = 333 Width = 564 Height = 20 Align = alBottom Alignment = taLeftJustify BevelOuter = bvLowered Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 11 end object PopupMenu1: TPopupMenu Left = 184 Top = 256 object PopupMenu: TMenuItem Caption = 'Execute' ShortCut = 0 OnClick = MacroListDblClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object New1: TMenuItem Caption = 'New' ShortCut = 0 OnClick = NewBtnClick end object Copy1: TMenuItem Caption = 'Copy' ShortCut = 0 OnClick = CopyBtnClick end object Delete1: TMenuItem Caption = 'Delete' ShortCut = 0 OnClick = DelBtnClick end end end